;; 这是emacs播放多媒体的配置
(require-package 'emms)
(require 'emms-player-simple)
(require 'emms-source-file)
(require 'emms-source-playlist)
(require 'emms-player-mplayer)
(require 'emms-playlist-mode)
;;(require 'emms-mode-line)
(require 'emms-playing-time)
(require 'emms-volume)

(setq emms-playlist-default-major-mode 'emms-playlist-mode)
;; 初始化播放器
(setq emms-player-list
	  '(emms-player-mpg321
		emms-player-ogg123
		emms-player-mplayer))
;;不使用emms的info消息（媒体信息）
(setq emms-info-asynchronously nil)
;; 设置播放列表buffer名
(setq emms-playlist-buffer-name "*Media*")
;; 使用find命令查找
(if (equal system-type 'gnu/linux)
	(setq emms-source-file-directory-tree-function
		  'emms-source-file-directory-tree-find))

;; 添加播放列表
;; (setq emms-source-file-default-directory "~/music")
;; 添加播放列表
;; (emms-add-directory-tree "~/music")

(add-hook 'emms-player-started-hook 'emms-show)

;; 开启歌词同步显示功能
(require 'emms-lyrics)
;; 在minibuf中显示歌词
(setq emms-lyrics-display-on-minibuffer t)
;; 不在mode－line中显示歌词
(setq emms-lyrics-display-on-modeline nil)
;; 使能显示歌词
(emms-lyrics 1)

;; 设置一些快捷键
(global-set-key (kbd "C-c m a") 'emms-add-directory-tree);;导入一个媒体文件夹
(global-set-key (kbd "C-c m c") 'emms-playlist-clear);;清楚播放列表
(global-set-key (kbd "C-c m b") 'emms-start);;开始播放列表中媒体
(global-set-key (kbd "C-c m e") 'emms-stop);;停止播放媒体
(global-set-key (kbd "C-c m s") 'emms-pause);;暂停播放
(global-set-key (kbd "C-c m m") 'emms-playlist-mode-go);;打开播放列表
(global-set-key (kbd "C-c m u") 'emms-volume-raise);;音量增加
(global-set-key (kbd "C-c m d") 'emms-volume-lower);;音量减小
(global-set-key (kbd "C-c m p") 'emms-play-file);;手动播放一个文件

;; 设置mode-line显示格式
;;(setq emms-mode-line-format
;;	  "[%s" emms-playing-time-display-format "%s]")

(provide 'init-media)
